home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_c / cuj0696.zip / DWYER.ZIP / FREQ.TST / KSTEST10.AWK < prev    next >
Text File  |  1995-09-29  |  930b  |  43 lines
  1. BEGIN\
  2. {
  3.     MinKnPos = 100000;
  4.     MinKnNeg = 100000;
  5. }
  6. /99 Degrees/{
  7.     ++J
  8.     NextKnPos = J/20 - $NF/100;
  9. #    if (NextKnPos < 0) NextKnPos = - NextKnPos;
  10.     if (NextKnPos > KnPos)
  11.     {
  12.         KnPos = NextKnPos;
  13.         MaxIdx = J;
  14.     }
  15.     if (NextKnPos < MinKnPos)
  16.     {
  17.         MinKnPos = NextKnPos;
  18.         MinPosIdx = J;
  19.     }
  20.     NextKnNeg = $NF/100 - (J-1)/20;
  21. #    if (NextKnNeg < 0) NextKnNeg = - NextKnNeg;
  22.     if (NextKnNeg > KnNeg)
  23.     {
  24.         KnNeg = NextKnNeg;
  25.         MinIdx = J;
  26.     }
  27.     if (NextKnNeg < MinKnNeg)
  28.     {
  29.         MinKnNeg = NextKnPos;
  30.         MinNegIdx = J;
  31.     }
  32. }
  33. END\
  34. {
  35.     printf("%d Records Were Processed\n", J);
  36.     printf("KnPlus  = %f\n", KnPos * sqrt(20));
  37.     printf("KnMinus = %f\n", KnNeg * sqrt(20));
  38.     printf("Maximum KmPlus  Occurred at Index %d\n", MaxIdx);
  39.     printf("Maximum KmMinus Occurred at Index %d\n", MinIdx);
  40.     printf("Minimum KmPlus  Occurred at Index %d\n", MinPosIdx);
  41.     printf("Minimum KmMinus Occurred at Index %d\n", MinNegIdx);
  42. }
  43.